﻿

Public Class frmChuyenSangFileExcel
    Dim dtNha As DataTable = New DataTable()
    Dim dtCongTy As DataTable = New DataTable()
    Public username As String = ""
    Private Sub frmChuyenSangFileExcel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

      
        Dim loainha As DataTable = LoaiNhaThueBUS.GetAllLoaiNhaThueBUS()
        Dim quan As DataTable = QuanBUS.GetAllQuanBUS()

        cbLoaiNhaTimKiem.DataSource = loainha
        cbLoaiNhaTimKiem.DisplayMember = "TenLoaiNha"
        cbLoaiNhaTimKiem.ValueMember = "MaLoaiNha"

        cbQuanTimKiem.DataSource = quan
        cbQuanTimKiem.DisplayMember = "TenQuan"
        cbQuanTimKiem.ValueMember = "MaQuan"

        gbTimKiem.Hide()
        dtNha = NhaThueBUS.GetAllNhaBUS()
        dgvNha.DataSource = dtNha

        'cong ty

        cbTimKiemQuan.DataSource = quan
        cbTimKiemQuan.DisplayMember = "TenQuan"
        cbTimKiemQuan.ValueMember = "MaQuan"

        gbTimKiemCongTy.Show()
        dtCongTy = CongTyBUS.GetAllCongTyBUS()
        dgvCongTy.DataSource = dtCongTy

        gbTimKiem.Hide()
        gbTimKiemCongTy.Hide()
        Catch ex As Exception
            MessageBox.Show("Kết nối bị lỗi bạn vui lòng kiểm tra lại cơ sở dữ liệu và server")
        End Try

    End Sub


    Private Sub TìmKiếmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TìmKiếmToolStripMenuItem.Click
        gbTimKiem.Show()
    End Sub

    Private Sub LoadLạiDữLiệuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadLạiDữLiệuToolStripMenuItem.Click
        Try
            dtNha = NhaThueBUS.GetAllNhaBUS()
        Catch ex As Exception
            MessageBox.Show("Kết nối bị lỗi bạn vui lòng kiểm tra lại cơ sở dữ liệu và server")
        End Try

    End Sub

    Private Sub XuấtDữLiệuRaFilexlsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XuấtDữLiệuRaFilexlsToolStripMenuItem.Click
        MessageBox.Show("Bạn phải tạo ra file .xls có cấu như trên hình, trước khi xuất nếu không quá trình xuất sẽ bị lỗi")
        Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog()
        SaveFileDialog1.Filter = "Export (*.xls)|*.xls"
        SaveFileDialog1.ShowDialog()
        Dim File_name As String = SaveFileDialog1.FileName

        ExcelProvider.file_name = File_name
        Try

            For i As Integer = 0 To dtNha.Rows.Count - 1
                Dim sql As String
                sql = String.Format("INSERT INTO [Sheet1$] (MaNha,MoTa,MaLoaiNha,DienTich,Gia,CanOGhep,NguoiLienHe,DiaChi,SoDienThoai,Email,NgayTiepNhan,MaTinhTrang,MaCongTy,NguoiDangTin) values ('{0}', '{1}','{2}','{3}', '{4}','{5}','{6}', '{7}','{8}','{9}', '{10}','{11}','{12}', '{13}')", dtNha.Rows(i)(0), dtNha.Rows(i)(1), dtNha.Rows(i)(2), dtNha.Rows(i)(3), dtNha.Rows(i)(4), dtNha.Rows(i)(5), dtNha.Rows(i)(6), dtNha.Rows(i)(7), dtNha.Rows(i)(8), dtNha.Rows(i)(9), dtNha.Rows(i)(10), dtNha.Rows(i)(11), dtNha.Rows(i)(12), dtNha.Rows(i)(13))
                ExcelProvider.NonQuery(sql)
            Next
            MessageBox.Show("Xuất dữ liệu thành công")
        Catch ex As Exception
            MessageBox.Show("Xuất dữ liệu bị lỗi, bạn vui lòng kiểm tra lại cấu trúc file .xls")
        End Try
    End Sub

    Private Sub btnTimKiemNha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimKiemNha.Click
        Try
            Dim tencongty As String = txtTenCongTy.Text
            Dim maloainha As Integer = Integer.Parse(cbLoaiNhaTimKiem.SelectedValue.ToString())
            Dim tenquan As String = cbQuanTimKiem.Text.ToString()
            Dim loai As Integer = cbTimKiem.SelectedIndex
            dtNha = NhaThueBUS.TimKiemNhaBUS(tencongty, maloainha, tenquan, loai)
            dgvNha.DataSource = dtNha
        Catch ex As Exception
            MessageBox.Show("Kết nối bị lỗi bạn vui lòng kiểm tra lại cơ sở dữ liệu và server")
        End Try
    End Sub


  

    'cong ty

    'tim kiem
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimKiemCongTy.Click
        Try
            Dim tencongty As String = txtTimKiemTenCongTy.Text
            Dim loai As Integer = cbTimKiemCongTy.SelectedIndex

            Dim quan As Integer = Integer.Parse(cbTimKiemQuan.SelectedValue.ToString())
            dgvCongTy.DataSource = CongTyBUS.TimKiemCongTyBUS(tencongty, quan, loai)
        Catch ex As Exception
            MessageBox.Show("Tìm kiếm bị lỗi")
        End Try
    End Sub

    
    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        MessageBox.Show("Bạn phải tạo ra file .xls có cấu như trên hình, trước khi xuất nếu không quá trình xuất sẽ bị lỗi")
        Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog()
        SaveFileDialog1.Filter = "Export (*.xls)|*.xls"
        SaveFileDialog1.ShowDialog()
        Dim File_name As String = SaveFileDialog1.FileName

        ExcelProvider.file_name = File_name
        Try

            For i As Integer = 0 To dtCongTy.Rows.Count - 1
                Dim sql As String
                sql = String.Format("INSERT INTO [Sheet1$] (MaCongTy,TenCongTy,DienThoai,MaQuan,Email,DiaChi,NgayTiepNhan) values ('{0}', '{1}','{2}','{3}', '{4}','{5}','{6}')", dtCongTy.Rows(i)(0), dtCongTy.Rows(i)(1), dtCongTy.Rows(i)(2), dtCongTy.Rows(i)(3), dtCongTy.Rows(i)(4), dtCongTy.Rows(i)(5), dtCongTy.Rows(i)(6))
                ExcelProvider.NonQuery(sql)
            Next
            MessageBox.Show("Xuất dữ liệu thành công")
        Catch ex As Exception
            MessageBox.Show("Xuất dữ liệu bị lỗi, bạn vui lòng kiểm tra lại cấu trúc file .xls")
        End Try
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        dgvNha.DataSource = dtCongTy
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

        gbTimKiemCongTy.Show()
    End Sub

   
End Class